home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.WIND.Cmdo.R < prev    next >
Encoding:
Text File  |  1988-07-28  |  6.8 KB  |  257 lines  |  [TEXT/MPS ]
  1. /* File RezC.WIND.Cmdo.R */ 
  2. /* Commando interface to build WIND Rez input */
  3. /* W. Powell 1988 */
  4.  
  5. /* Rez definitions for Rez-building Commando interfaces */
  6. #include "Types.R"
  7. #include "Cmdo.R"
  8.  
  9. Resource 'cmdo' (200) {
  10.     { 285,
  11.     "Rezc.WIND produces Rez input for a Window resource",
  12.     {
  13. /* This include file has a standard arrangement of items
  14.  *   common to all resources: ID#, attributes, name, 
  15.  *      and redirection of output from the Rezc.≈ script        */
  16. #include "CmdoReztStart.R"
  17.  
  18. /* Set up parameters for a Rectangle entry area                */    
  19.     #define RTop 85
  20.     #define RLeft 30
  21.     #define RTit "Window Rectangle"
  22.     #define RDep {1}
  23. /* This include file has a standard arrangement of edit boxes
  24.  *   for input of rectangles                                */
  25. #include "CmdoRect.R"
  26.  
  27. /* other items particular to this case */    
  28.     /* Item 11 */
  29.     OR {{1}}, NestedDialog {
  30.         4, /* Dialog number */
  31.         {85,250,106,370},
  32.         "Window Type",
  33.         "Select style of window." },
  34.     /* Item 12 */
  35.     OR {{1}}, RadioButtons {{
  36.         {80,380,96,460},
  37.             "Visible","-V",NotSet,"Make window visible.",
  38.         {97,380,113,460},
  39.             "Invisible","-I",NotSet,"Make window invisible."
  40.         }},
  41.     /* Item 13 */
  42.     OR {{1}}, RegularEntry {
  43.         "RefCon:",
  44.         {123,250,139,310},
  45.         {123,315,139,430},
  46.         "",keepCase,"-const",
  47.         "User-defined constant.\nHEX long word." },
  48.     /* Item 14 */
  49.     OR {{1}}, RegularEntry {
  50.         "Title:",
  51.         {152,30,168,90},
  52.         {152,100,168,440},
  53.         "",keepCase,"-title",
  54.         "Title for window." },
  55.     /* Item 15 */
  56.     AND {{6,7,8,9}}, DoItButton {},
  57.     }, 
  58. /* Dialog 2 */
  59. /* Include the standard resource attributes dialog */
  60. #include "CmdoReztAttr.R"
  61.  
  62. /* Dialog 3 */
  63. /* Include a redirection dialog */
  64. #include "CmdoReztRdir.R"
  65.  
  66. /* Dialog 4 */
  67.     270,
  68.     "Select style of window.",
  69.     {
  70.     /* Item 1 */
  71.     NotDependent {}, RadioButtons {{
  72.         {55,54,71,70},
  73.             "","documentProc",NotSet,"",
  74.         {55,156,71,172},
  75.             "","dBoxProc",NotSet,
  76.             "NOTE: This window type inhibits"
  77.             " MultiFinder context switching.",
  78.         {55,258,71,274},
  79.             "","plainDBox",NotSet,"",
  80.         {55,360,71,376},
  81.             "","altDBoxProc",NotSet,"",
  82.         {115,54,131,70},
  83.             "","noGrowDocProc",NotSet,"",
  84.         {115,156,131,172},
  85.             "","zoomDocProc",NotSet,"",
  86.         {115,258,131,274},
  87.             "","zoomNoGrow",NotSet,"",
  88.         {115,360,131,376},
  89.             "","rDocProc",NotSet,""
  90.         }},
  91.     /* Item 2 */
  92.     NotDependent{}, RadioButtons {{
  93.         {140,100,156,210},
  94.             "Has Close Box","-goAway",NotSet,
  95.             "Window has a close box.",
  96.         {140,280,156,390},
  97.             "No Close Box","-NoGoAway",NotSet,
  98.             "Window does not have a close box."
  99.         }},
  100.     /* Item 3 */
  101.     NotDependent {}, Box {
  102.         gray, 
  103.         {135,80,160,400} },
  104.     /* Item 4 */
  105.     NotDependent {}, TextTitle {
  106.         plain,
  107.         {56,71,70,137},
  108.         3,9,
  109.         "documentProc" },
  110.     NotDependent {}, TextTitle {
  111.         plain,
  112.         {56,173,70,234},
  113.         3,9,
  114.         "dBoxProc" },
  115.     NotDependent {}, TextTitle {
  116.         plain,
  117.         {56,275,70,336},
  118.         3,9,
  119.         "plainDBox" },
  120.     NotDependent {}, TextTitle {
  121.         plain,
  122.         {56,377,70,438},
  123.         3,9,
  124.         "altDBoxProc" },
  125.     NotDependent {}, TextTitle {
  126.         plain,
  127.         {116,71,130,150},
  128.         3,9,
  129.         "noGrowDocProc" },
  130.     NotDependent {}, TextTitle {
  131.         plain,
  132.         {116,173,130,234},
  133.         3,9,
  134.         "zoomDocProc" },
  135.     NotDependent {}, TextTitle {
  136.         plain,
  137.         {116,275,130,336},
  138.         3,9,
  139.         "zoomNoGrow" },
  140.     NotDependent {}, TextTitle {
  141.         plain,
  142.         {116,377,130,438},
  143.         3,9,
  144.         "rDocProc" },
  145.     NotDependent {}, PictOrIcon {
  146.         Icon, 200, {20,70,52,102} },
  147.     NotDependent {}, PictOrIcon {
  148.         Icon, 201, {20,172,52,204} },
  149.     NotDependent {}, PictOrIcon {
  150.         Icon, 202, {20,274,52,306} },
  151.     NotDependent {}, PictOrIcon {
  152.         Icon, 203, {20,376,52,408} },
  153.     
  154.     NotDependent {}, PictOrIcon {
  155.         Icon, 204, {80,70,112,102} },
  156.     NotDependent {}, PictOrIcon {
  157.         Icon, 205, {80,172,112,204} },
  158.     NotDependent {}, PictOrIcon {
  159.         Icon, 206, {80,274,112,306} },
  160.     NotDependent {}, PictOrIcon {
  161.         Icon, 207, {80,376,112,408} },
  162.     },
  163. }
  164. }; 
  165.  
  166.  
  167. resource 'ICON' (200, "documentProc") {
  168.     $"FFFF FFFF 8000 0001 BEFF FFF1 A200 0001"
  169.     $"A2FF FFF1 A200 0001 BEFF FFF1 8000 0001"
  170.     $"FFFF FFFF 8000 0041 8000 0001 8000 0041"
  171.     $"8000 0001 8000 0041 8000 0001 8000 0041"
  172.     $"8000 0001 8000 0041 8000 0001 8000 0041"
  173.     $"8000 0001 8000 0041 8000 0001 8000 0041"
  174.     $"8000 0001 D555 5555 8000 0001 8000 0041"
  175.     $"8000 0001 8000 0041 8000 0001 FFFF FFFF"
  176. };
  177.  
  178. resource 'ICON' (201, "dBoxProc") {
  179.     $"FFFF FFFF 8000 0001 8000 0001 9FFF FFF9"
  180.     $"9FFF FFF9 9800 0019 9800 0019 9800 0019"
  181.     $"9800 0019 9800 0019 9800 0019 9800 0019"
  182.     $"9800 0019 9800 0019 9800 0019 9800 0019"
  183.     $"9800 0019 9800 0019 9800 0019 9800 0019"
  184.     $"9800 0019 9800 0019 9800 0019 9800 0019"
  185.     $"9800 0019 9800 0019 9800 0019 9FFF FFF9"
  186.     $"9FFF FFF9 8000 0001 8000 0001 FFFF FFFF"
  187. };
  188.  
  189. resource 'ICON' (202, "PlainDBox") {
  190.     $"FFFF FFFF 8000 0001 8000 0001 8000 0001"
  191.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  192.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  193.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  194.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  195.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  196.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  197.     $"8000 0001 8000 0001 8000 0001 FFFF FFFF"
  198. };
  199.  
  200. resource 'ICON' (203, "AltDBoxProc") {
  201.     $"FFFF FFFE 8000 0003 8000 0003 8000 0003"
  202.     $"8000 0003 8000 0003 8000 0003 8000 0003"
  203.     $"8000 0003 8000 0003 8000 0003 8000 0003"
  204.     $"8000 0003 8000 0003 8000 0003 8000 0003"
  205.     $"8000 0003 8000 0003 8000 0003 8000 0003"
  206.     $"8000 0003 8000 0003 8000 0003 8000 0003"
  207.     $"8000 0003 8000 0003 8000 0003 8000 0003"
  208.     $"8000 0003 8000 0003 FFFF FFFF 3FFF FFFF"
  209. };
  210.  
  211. resource 'ICON' (204, "noGrowDocProc") {
  212.     $"FFFF FFFF 8000 0001 BEFF FFF1 A200 0001"
  213.     $"A2FF FFF1 A200 0001 BEFF FFF1 8000 0001"
  214.     $"FFFF FFFF 8000 0001 8000 0001 8000 0001"
  215.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  216.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  217.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  218.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  219.     $"8000 0001 8000 0001 8000 0001 FFFF FFFF"
  220. };
  221.  
  222. resource 'ICON' (205, "zoomDocProc") {
  223.     $"FFFF FFFF 8000 0001 BEFF FEF9 A200 0089"
  224.     $"A2FF FE89 A200 0089 BEFF FEF9 8000 0001"
  225.     $"FFFF FFFF 8000 0041 8000 0001 81FF 0041"
  226.     $"8002 0001 8004 0041 8008 0001 8010 0041"
  227.     $"8020 0001 8040 0041 8080 0001 81FF 0041"
  228.     $"8000 0001 8000 0041 8000 0001 8000 0041"
  229.     $"8000 0001 D555 5555 8000 0001 8000 0041"
  230.     $"8000 0001 8000 0041 8000 0001 FFFF FFFF"
  231. };
  232.  
  233. resource 'ICON' (206, "zoomNoGrow") {
  234.     $"FFFF FFFF 8000 0001 BEFF FEF9 A200 0089"
  235.     $"A2FF FE89 A200 0089 BEFF FEF9 8000 0001"
  236.     $"FFFF FFFF 8000 0001 8000 0001 8000 0001"
  237.     $"8000 0001 803F F001 8000 2001 8000 4001"
  238.     $"8000 8001 8001 0001 8002 0001 8004 0001"
  239.     $"8008 0001 8010 0001 803F F001 8000 0001"
  240.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  241.     $"8000 0001 8000 0001 8000 0001 FFFF FFFF"
  242. };
  243.  
  244. resource 'ICON' (207, "rDocProc") {
  245.     $"0FFF FFF0 3FFF FFFC 707F FFFE 777F FFFE"
  246.     $"F77F FFFF F77F FFFF F07F FFFF FFFF FFFF"
  247.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  248.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  249.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  250.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  251.     $"8000 0001 8000 0001 8000 0001 8000 0001"
  252.     $"4000 0002 4000 0002 3000 000C 0FFF FFF0"
  253. };
  254.  
  255. /* End File RezC.WIND.Cmdo.R */
  256.  
  257.